home *** CD-ROM | disk | FTP | other *** search
Text File | 1989-07-12 | 1.5 KB | 63 lines | [TEXT/GEOL] |
- Item 1676108 28-June-89 01:59
-
- From: CDA0004 VAR Shana Enterprises, Don Murphy
-
- To: MACAPP.TECH$ MACAPP Tech
-
- Sub: Inside Out and MacApp
-
- Hello Everyone,
-
- This note describes a new override for TApplication.GetEvent which should be
- used by anyone using Inside Out and MacApp. The override described in the
- Inside Out 1.2 manual does not function correctly, losing lots of events and
- sending others on to cause various system errors.
-
-
- The following method is an override of TApplication.GetEvent which filters
- events through Inside Out's event mechanism before the rest of MacApp gets to
- see them:
-
-
- FUNCTION TMyApplication.GetEvent (eventMask : Integer; sleep : LongInt;
- cursorRgn : RgnHandle; VAR anEvent : EventRecord) : Boolean;
- VAR
- done : Boolean;
-
- BEGIN
-
- { Inside Out only needs events to support its debug window. }
- {$IFC qDebug }
-
- REPEAT
- done := TRUE;
- GetEvent := INHERITED GetEvent (eventMask,sleep,cursorRgn,anEvent);
- IF ISOEvent (anEvent) THEN
- done := FALSE;
- UNTIL done;
-
- {$ELSEC}
-
- GetEvent := INHERITED GetEvent (eventMask,sleep,cursorRgn,anEvent);
-
- {$ENDC}
-
- { A good place to unload segments. }
- DBUnloadSeg;
- END;
-
-
- This should fix any problems you may have been having with Inside Out's debug
- window, including lost events and even system errors.
-
- Many thanks to Curt Faith for pointing this out and helping me resolve it.
-
- Regards,
-
- Wayne Malkin
- Proj Leader/IsO
- 27-Jun-89 11:10
-
-
-
-